home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / block free.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  255b  |  11 lines
  1. 8130 OPEN15,8,15:D=8:D$="0"
  2. 8140 PRINT#15,"I"+D$:OPEN1,D,0,"$"+D$+":!#$%&"
  3. 8150 FORD=1TO34:GET#1,X$:NEXTD
  4. 8160 GET#1,X$:X=LEN(X$):IFXTHENX=ASC(X$)
  5. 8170 GET#1,X$:Y=LEN(X$):IFYTHENY=ASC(X$)
  6. 8180 L=X+Y*256:PRINT"(";L;"BLOCKS FREE )"
  7. 8190 CLOSE1:CLOSE15:END
  8. 9000 INPUT#15,E,E$,E1,E2
  9. 9010 IFE=0THENE=(ST AND 191):E$="*ST*"
  10. 9020 RETURN
  11.